home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / sticky / sticky.bas next >
Encoding:
BASIC Source File  |  1996-01-11  |  446 b   |  16 lines
  1. Option Explicit
  2.  
  3. Type Rect
  4.     left As Integer
  5.     top As Integer
  6.     right As Integer
  7.     bottom As Integer
  8. End Type
  9.  
  10. Global Const MM_TWIPS = 6
  11.  
  12. Declare Function GetScreenDC Lib "User" Alias "GetDC" (ByVal hWnd As Integer) As Integer
  13. Declare Function ReleaseScreenDC Lib "User" Alias "ReleaseDC" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer
  14. Declare Sub DrawFocusRect Lib "User" (ByVal hDC As Integer, lpRect As Rect)
  15.  
  16.